home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / text / xes.lha / XES / REXX / YankRec.xdme < prev   
Text File  |  1995-07-31  |  298b  |  14 lines
  1. /* $VER: YankRec.xdme 1.0 (31 Jul 1995) */
  2. /* This yanks a rectangle into the text. */
  3.  
  4. call open(input,"T:rectangle","R")
  5.  
  6. do forever
  7.     line = readln(input)
  8.     if eof(input) then leave
  9.     xcom = 'push pos insert (' || line || ') ping 9 pop pos downadd'
  10.     xcom
  11. end
  12. 'pong 9'
  13. call close(input)
  14.